home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PREVIEW.DIR / 00124_Script_old slide changer parent < prev    next >
Text File  |  1997-07-22  |  2KB  |  48 lines
  1. on new me
  2.   return me
  3. end
  4.  
  5. on change me, direction
  6.   global gSSimageChan, gCreditChan
  7.   set slideDescr = ["ea": 13, "in": 5]  
  8.   
  9.   set currentSlideName = the name of the member of sprite gSSimageChan
  10.   
  11.   unloadMember member currentSlideName -- minimize RAM usage ?
  12.   
  13.   set temp = currentSlideName
  14.   delete char 1 to 2 of temp
  15.   
  16.   -- push delimiter
  17.   set oldItemDelim = the itemdelimiter
  18.   set the itemdelimiter = "."
  19.   
  20.   delete item 2 of temp
  21.   set curSlideNum = integer(temp)
  22.   set maxSlideNum = getaprop(slideDescr, char 1 to 2 of currentSlideName)
  23.   
  24.   -- pop delimiter
  25.   set the itemdelimiter = oldItemDelim
  26.   
  27.   -- synthesize new member names
  28.   set newSlideNum = curSlideNum + direction
  29.   if newSlideNum > maxSlideNum then set newSlideNum = 1
  30.   if newSlideNum < 1 then set newSlideNum = maxSlideNum  
  31.   
  32.   set newSlideMembName = char 1 to 2 of currentSlideName & newSlideNum & ".pct"
  33.   set newCredMembName = char 1 to 2 of currentSlideName & newSlideNum & ".cred"
  34.   
  35.   -- guaranteed puppet
  36.   puppetsprite gSSimageChan, 1
  37.   puppetsprite gCreditChan, 1
  38.   
  39.   -- update slide with transition
  40.   set the member of sprite gSSimageChan = the number of member newSlideMembName
  41.   if direction > 0 then puppettransition 2
  42.   if direction < 0 then puppettransition 1
  43.   
  44.   -- update credit sprite
  45.   set the member of sprite gCreditChan to the number of member newCredMembName of castlib "credits"
  46.   set the stretch of sprite gCreditChan to false
  47.   return me
  48. end